BBS in a Box 5/BBS in a Box -Volume V (BBS in a Box) (April 1992).iso/Files/System7 tools/S/SYS7 COMPAT.cpt/Compatibility Checker 1.0b7.1/background_3397.xml

Extensible Markup Language | 1991-04-22 | 30KB | 77 lines

<?xml version="1.0" encoding="utf-8" ?>
<!DOCTYPE background PUBLIC "-//Apple, Inc.//DTD background V 2.0//EN" "" >
<background>
    <id>3397</id>
    <filler1>0</filler1>
    <bitmap>BMAP_4055.pbm</bitmap>
    <cantDelete> <true /> </cantDelete>
    <showPict> <true /> </showPict>
    <dontSearch> <false /> </dontSearch>
    <link rel="stylesheet" type="text/css" href="stylesheet_2878.css" />
    <part>
        <id>4</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>393</left>
            <top>6</top>
            <right>495</right>
            <bottom>27</bottom>
        </rect>
        <style>transparent</style>
        <showName> <true /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>Introduction</name>
        <script>on mouseUpgo cd "Introduction"end mouseUp</script>
    </part>
    <part>
        <id>5</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <true /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <true /> </lockText>
        <rect>
            <left>12</left>
            <top>5</top>
            <right>370</right>
            <bottom>29</bottom>
        </rect>
        <style>transparent</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>left</textAlign>
        <font></font>
        <textSize>16</textSize>
        <textStyle>plain</textStyle>
        <textHeight>21</textHeight>
        <name>Title</name>
        <script></script>
    </part>
    <name>Checker</name>
    <script>=====================================-- Compatability Checking Handlers --=====================================on doScanglobal gDoingScan,gInitFlag,gBadINITs,StartUpVolumeglobal StartUpVolumeCheckedput TRUE into gDoingScancleanUpshowDialogloadDatabasesiterateThroughVolumesput "Checking System items..." into cd fld "Check Status" --∆checkTotalRAMif StartUpVolumeChecked is TRUE then checkINITsreleaseDatabasesput FALSE into gDoingScanput empty into cd fld "Check Status"hideDialogif gInitFlag is TRUE thenif gBadINITs is not empty thenvisual dissolveset lockScreen to TRUEgo cd "Caution—INITs"put the number of lines of gBadINITs into numOfBadINITsrepeat with i = 1 to numOfBadINITsput FileFromPath(line i of gBadINITs) & RETURN ¬after justTheFileNamesend repeatput justTheFileNames into cd fld "List of INITs"put numOfBadINITs & " item(s) to be moved from the System "&¬"Folder on the disk of " &"“"&StartUpVolume&"”" into ¬cd fld "Startup Information" --∆set the scroll of cd fld "List of INITs" to 0set lockScreen to FALSEend ifelseassembleReportvisual dissolvego cd "Results"end ifend doScanon cleanUpglobal gTotalFiles,CurrentFiles,CompatibleFiles,gScanningFilesglobal gInitFlag,IncompatibleFiles,DiskSpaceVolumes,gBadINITsglobal UnknownINITs,IncompatibleINITs,gINITsMoved,INITFilestoScanglobal MultipleSystemFolders,CurrentVendors,CompatibleVendorsglobal IncompatibleVendors,UnknownVendors,TheFinalReport,UnknownFilesglobal IncompatibleSecuritySoftwareput empty into gTotalFilesput empty into CurrentFilesput empty into CompatibleFilesput empty into gInitFlagput empty into IncompatibleFilesput empty into DiskSpaceVolumesput empty into UnknownINITsput empty into IncompatibleINITsput empty into gINITsMovedput empty into MultipleSystemFoldersput empty into CurrentVendorsput empty into CompatibleVendorsput empty into IncompatibleVendorsput empty into UnknownVendorsput empty into TheFinalReportput empty into UnknownFilesput empty into gScanningFilesput empty into gBadINITsput empty into INITFilestoScanput empty into IncompatibleSecuritySoftwarepush cardset lockScreen to TRUEgo cd "Results"put empty into cd fld "Results"put empty into cd fld "Results 2"go cd "Caution—INITs"put empty into cd fld "List of INITs"put empty into cd fld "Startup Information"pop cardset lockScreen to FALSEend cleanUpon showDialogset lockScreen to TRUEshow cd btn "Dialog1"show cd btn "Dialog2"show cd btn "Dialog3"put empty into cd fld "Check Status"show cd fld "Check Status"show cd fld "Cancel Information 1"set lockScreen to FALSEend showDialogon hideDialogset lockScreen to TRUEhide cd btn "Dialog1"hide cd btn "Dialog2"hide cd btn "Dialog3"hide cd btn "Progress"hide cd fld "Check Status"hide cd fld "Cancel Information 1"set lockScreen to FALSEend hideDialogon iterateThroughVolumes-- This is the first true heart of CC. For each volume, it adds-- info to the result global, then calls the FilterDirectory XFCN-- to get the list of files.  It purges the list and sends it-- through iteration.global gNumSelected,gSelectedVols,gScanningFiles,gNumFilesrepeat with curVol = 1 to gNumSelectedgo to this cdput line curVol of gSelectedVols into theVolumeput "Checking compatibility of “" & theVolume & "”"into ¬ --∆cd fld "Check Status"put ":" after theVolumeset cursor to watchput FilterDirectory(theVolume, TRUE,"APPL","ZSYS","zsys") into ¬gScanningFilesif (gScanningFiles is "Scan Cancelled.") thensend "idle" to card "Introduction"exit to HyperCardend ifset cursor to busyif gScanningFiles is not empty thenif char 1 to 6 of gScanningFiles is "Error:" thenput "Could not get volume info" into cd fld "Check Status"  --∆beepexit iterateThroughVolumesend ifpurgeList theVolume,gScanningFiles,"iterateThroughVolumes"put the number of lines in gScanningFiles into gNumFilesshow cd btn "Progress"iterateThroughFilesdelete char (the number of chars of theVolume) of theVolumecheckMultipleSystemFolders theVolumeput empty into gScanningFilescheckDiskSpace theVolumeend ifend repeatend iterateThroughVolumeson purgeList directoryName,filesToBeScanned,handlerName-- *purgeList* removes anything from the list of files to be scanned-- that it knows cannot be successfully scannedglobal gAPPLSkipTypes,gScanningFiles,INITFilestoScan,gINITSkipTypesif handlerName is "iterateThroughVolumes" then put gAPPLSkipTypes into gSkipTypeselse put gINITSkipTypes into gSkipTypesrepeat with lnNm = 1 to (the number of lines in gSkipTypes)put char 1 to 8 of line lnNm of gSkipTypes into removeLineput 1 into theLocif (removeLine is not empty) and (filesToBeScanned is not empty) thenrepeat until item 1 of theLoc = 0if filesToBeScanned is empty then exit repeatFindInXCMD filesToBeScanned, removeLine, 1, FALSEput the result into theLocif item 1 of theLoc ≠ 0 thendelete line (item 1 of theLoc) of filesToBeScannedend if -- if the item is in thereend repeat -- repeat until no more occurrencesend if -- removeLine is emptyset cursor to busy --∑end repeatif handlerName is "iterateThroughVolumes" thenput filesToBeScanned into gScanningFileselse put filesToBeScanned into INITFilestoScanend purgeListon iterateThroughFilesglobal gScanningFiles,gNumFiles,gError,gInternationalrepeat with curFile = 1 to gNumFilesset cursor to busyput line curFile of gScanningFiles into filterLineput the number of chars of filterLine into totalCharsput char 1 to 8 of filterLine into creatorTypeif char 5 to 8 of creatorType is "APPL" thenput char 10 to totalChars of filterLine into theFileput FileVersion(theFile,"noDialog:gError") into versStringif gError is empty thenif (versString is not empty) and ¬(char 1 to 6 of versString is not "Error:") thenif (not gInternational) then    --∑checkFile theFile, creatorType, versStringelseinternationalCheckFile theFile,creatorType,versString  --∑end ifend ifend ifput empty into gErrorThermometer the rect of cd btn "Progress", curFile,¬gNumFiles, cyanend ifend repeatend iterateThroughFileson checkFile pathName, creatorType, versString-- *checkFile* is called on each file in the scan list, given the file-- name, database codes, version and so on. It uses the creator/type-- to look up the file in the database, and if it finds anything,-- it pulls the version number from the string and compares it to the-- ones in the databaseglobal gVersionDB,gFileVendor,gDBFileName,gDBVersion,gDBMessagesglobal gDBCurrentVersionset cursor to busyFindInXCMD gVersionDB, creatorType, 1, FALSEput the result into dataLineput item 1 of dataLine into lineNumif lineNum = 0 then --couldn't find creatype in the dbput extractVersion(versString) into fileVersput empty into gDBFileNameaddtoUnknownFiles pathname,fileVerselseput line (lineNum+1) of gVersionDB into gDBFileNameput line (lineNum+2) of gVersionDB into gFileVendorput item 2 of line lineNum of gVersionDB into compatibleVersionput item 3 of line lineNum of gVersionDB into gDBCurrentVersionput item 4 of line lineNum of gVersionDB into gDBMessagesput extractVersion(versString) into fileVersif fileVers is not empty thenput VersionCompare(fileVers,compatibleVersion,gDBCurrentVersion)¬into versionStatusif versionStatus is "Current" thenaddtoCurrentFiles pathname,fileVerselse if versionStatus is "Compatible" thenaddtoCompatibleFiles pathname,fileVerselse if versionStatus is "Incompatible" thenaddtoIncompatibleFiles pathname,fileVerselse if versionStatus is "Pre-release" thenaddtoUnknownFiles pathname,fileVersend ifend ifend ifend checkFileon internationalCheckFile pathName, creatorType, versString-- *internationalCheckFile* is just like checkFile but incorporates-- country codes with the type and creator.global gVersionDB,gFileVendor,gDBFileName,gDBVersion,gDBMessagesglobal gDBCurrentVersionset cursor to busyput FileNation(pathName) into countryCodeif countryCode is "Error: The file has no 'vers' resource." thenput empty into countryCodeelse if char 1 to 6 of countryCode is "Error:" thenexit internationalCheckFileend ifput creatorType & countryCode into searchKeyFindInXCMD gVersionDB, searchKey, 1, FALSEput the result into dataLineput item 1 of dataLine into lineNumif lineNum = 0 then --couldn't find creatype in the dbput empty into gDBFileNameelseput line (lineNum+1) of gVersionDB into gDBFileNameput line (lineNum+2) of gVersionDB into gFileVendorput item 2 of line lineNum of gVersionDB into compatibleVersionput item 3 of line lineNum of gVersionDB into gDBCurrentVersionput item 4 of line lineNum of gVersionDB into gDBMessagesput extractVersion(versString) into fileVersif fileVers is not empty thenput VersionCompare(fileVers,compatibleVersion,gDBCurrentVersion)¬into fileStatus  --∑  now uses the XFCNif (fileStatus is "Current") thenaddtoCurrentFiles pathname,fileVerselse if (fileStatus is "Compatible") thenaddtoCompatibleFiles pathname,fileVerselseaddtoIncompatibleFiles pathname,fileVersend ifend ifend ifend internationalCheckFileon addtoCurrentFiles pathName,fileVersionglobal gDBVersion,gDBFileName,gDBCurrentVersion,gNumSelectedglobal CurrentVendors,CurrentFilesset cursor to busyput getVendorInfo() into vendorInfoput line 1 of vendorInfo into vendornameput line 2 of vendorInfo into vendorphonerepeat with i = 1 to 2if charToNum of char i of gDBFileName is 1 thendelete char i of gDBFileNameend ifend repeatput TableWidth(gDBFileName,"26")&" "&TableWidth(vendorname,"25")&¬" "&vendorphone & RETURN after CurrentVendorsput TableWidth(gDBFileName,"26")&TableWidth(fileVersion,"9")&¬TableWidth("Compatible","26") after CurrentFiles --∆if gNumSelected > 1 thenput VolFromPath(pathName) into theVolumeNameput char 1 to 19 of theVolumeName after CurrentFilesend ifput RETURN after CurrentFilesend addtoCurrentFileson addtoCompatibleFiles pathName,fileVersionglobal gDBVersion,gDBFileName,CompatibleFiles,gDBMessagesglobal IsVMCapable,Is32BitAddressable,Messages,CompatibleVendorsglobal gDBCurrentVersion,gNumSelectedset cursor to busyput getVendorInfo() into vendorInfoput line 1 of vendorInfo into vendornameput line 2 of vendorInfo into vendorphonerepeat with i = 1 to 2if charToNum of char i of gDBFileName is 1 thendelete char i of gDBFileNameend ifend repeatput TableWidth(gDBFileName,"26")&" "&TableWidth(vendorname,"25")&¬" "&vendorphone & RETURN after CompatibleVendorsif gDBCurrentVersion is "99" then put "n/a" into gDBCurrentVersionelse if gDBCurrentVersion is "98" then put " " into gDBCurrentVersionput TableWidth(gDBFileName,"26")&TableWidth(fileVersion,"9")&¬"Mostly comp.   " & TableWidth(gDBCurrentVersion,"7") after ¬CompatibleFiles --∆if gDBMessages is not empty thenif gDBMessages is "VM"  thenif IsVMCapable is TRUE thenput "VM  " after CompatibleFileselseput "    " after CompatibleFilesend ifelse if gDBMessages is "AD" thenif Is32BitAddressable is TRUE thenput "AD  " after CompatibleFileselseput "    " after CompatibleFilesend ifelse if gDBMessages is "FR" then put "FR  " after CompatibleFileselse if gDBMessages is "CD" then put "CD  " after CompatibleFileselse if gDBMessages is "MI" then put "MI  " after CompatibleFileselse if gDBMessages is "UP" then put "UP  " after CompatibleFileselse if gDBMessages is "RI" then put "RI  " after CompatibleFileselse if gDBMessages is "TT" then put "TT  " after CompatibleFileselse if gDBMessages is "EX" then put "EX  " after CompatibleFileselse if gDBMessages is "FS" then put "FS  " after CompatibleFileselse if gDBMessages is "UN" thenput "UN  " after CompatibleFilesend ifelseput "    " after CompatibleFilesend ifif gNumSelected > 1 thenput VolFromPath(pathName) into theVolumeNameput char 1 to 19 of theVolumeName after CompatibleFilesend ifput RETURN after CompatibleFilesend addtoCompatibleFileson addtoIncompatibleFiles pathName,fileVersionglobal gDBVersion,gDBFileName,IncompatibleFiles,gNumSelectedglobal IncompatibleVendors,gDBCurrentVersion,gDBMessagesglobal IsVMCapable,Is32BitAddressableset cursor to busyput getVendorInfo() into vendorInfo--need to get vendor name & contact info in separate variablesput line 1 of vendorInfo into vendornameput line 2 of vendorInfo into vendorphonerepeat with i = 1 to 2if charToNum of char i of gDBFileName is 1 thendelete char i of gDBFileNameend ifend repeatput TableWidth(gDBFileName,"26")&" "&TableWidth(vendorname,"25")&¬" "&vendorphone & RETURN after IncompatibleVendorsif gDBCurrentVersion is "99" then put "n/a" into gDBCurrentVersionelse if gDBCurrentVersion is "98" then put " " into gDBCurrentVersionput TableWidth(gDBFileName,"26")&TableWidth(fileVersion,"9")&¬"Must upgrade   " & TableWidth(gDBCurrentVersion,"7")¬after IncompatibleFiles --∆if gDBMessages is not empty thenif gDBMessages is "VM" thenif IsVMCapable is TRUE thenput "VM  " after IncompatibleFileselseput "    " after IncompatibleFilesend ifelse if gDBMessages is "AD" thenif Is32BitAddressable is TRUE thenput "AD  " after IncompatibleFileselseput "    " after IncompatibleFilesend ifelse if gDBMessages is "FR" then put "FR  " after IncompatibleFileselse if gDBMessages is "CD" then put "CD  " after IncompatibleFileselse if gDBMessages is "MI" then put "MI  " after IncompatibleFileselse if gDBMessages is "UP" then put "UP  " after IncompatibleFileselse if gDBMessages is "RI" then put "RI  " after IncompatibleFileselse if gDBMessages is "TT" then put "TT  " after IncompatibleFileselse if gDBMessages is "EX" then put "EX  " after IncompatibleFileselse if gDBMessages is "FS" then put "FS  " after IncompatibleFileselse if gDBMessages is "UN" thenput "UN  " after IncompatibleFilesend ifelseput "    " after IncompatibleFilesend ifif gNumSelected > 1 thenput VolFromPath(pathName) into theVolumeNameput char 1 to 19 of theVolumeName after IncompatibleFilesend ifput RETURN after IncompatibleFilesend addtoIncompatibleFileson addtoUnknownFiles pathname,fileVersglobal UnknownFiles,gNumSelected,UnknownVendorsset cursor to busyput FilefromPath(pathname) into fileNameif "™" is in fileName thenput offset("™",fileName) into theChardelete char theChar of fileNameend ifif "©" is in fileName thenput offset("©",fileName) into theChardelete char theChar of fileNameend ifif "®" is in fileName thenput offset("®",fileName) into theChardelete char theChar of fileNameend ifrepeat with i = 1 to 2if charToNum of char i of fileName is 1 thendelete char i of fileNameend ifend repeatput TableWidth(fileName,"26")&TableWidth(fileVers,"9")&¬TableWidth("Not Avail.","26") after UnknownFiles --∆if gNumSelected > 1 thenput VolFromPath(pathName) into theVolumeNameput char 1 to 19 of theVolumeName after UnknownFilesend ifput RETURN after UnknownFilesput TableWidth(fileName,"27") & TableWidth("Not Avail.","26") &¬"Not Avail." & RETURN after UnknownVendors --∆end addtoUnknownFilesfunction getVendorInfo-- *getVendorInfo*  makes the lookup in the vendor database based on-- the vendorkey loaded into gFileVendor by checkFile.global gVendorDB,gFileVendorif "@" is in gFileVendor thenFindInXCMD gVendorDB, gFileVendor, 1, TRUEput the result into datalineif item 1 of dataline = 0 then--we have problemRETURN("Unknown vendor,N/A")  --∆elseput item 1 of dataline into linenumberput line (linenumber + 1) of gVendorDB into returnValueput RETURN&line (linenumber + 2) of gVendorDB after returnValuereturn(returnValue)end ifend ifend getVendorInfoon checkDiskSpace theVolumeglobal DiskSpaceVolumesput theVolume & ":" into volumeNameput DiskSpaceAvail(volumeName) into freeSpaceif (freeSpace div 1024) < 2048 thenput theVolume & RETURN after DiskSpaceVolumesend ifend checkDiskSpaceon checkTotalRAMglobal TotalRAMProblemput empty into TotalRAMProblemput TotalRAM() into totalRAMif (totalRAM/1024) < 2048 then put TRUE into TotalRAMProblemend checkTotalRAMon checkINITsglobal gVersionDB,gInitFlag,StartUpVolume,TheSystemFolderglobal gUnknownINITs,gBadINITs,gDBFileName,gFileVendor,INITFilestoScanglobal gDBCurrentVersion,gDBMessages,gSecurityDB,errGlobalput FALSE into gInitFlagput empty into gBadINITsput FilterDirectory(TheSystemFolder,TRUE,"cdev","INIT","RDEV") ¬into INITFilestoScan --∑ RDEVif INITFilestoScan is empty then exit checkINITs --∑put item 3 of SysEnv() into sysVerspurgeList StartUpVolume,INITFilestoScan,"checkINITs"repeat with file = 1 to the number of lines in INITFilestoScanput the number of chars of line file of INITFilestoScan into totalChars --∑put char 1 to 8 of line file of INITFilestoScan into creatorTypeput char 10 to totalChars of line file of INITFilestoScan ¬into pathNameif inLoadLevelOfSysFolder(pathName,sysVers) then-- those that need to be checked...put FileVersion(pathName,"nodialog:errGlobal") into versString --∑set cursor to busyFindInXCMD gVersionDB, creatorType, 1, FALSEput the result into dataLineput item 1 of dataLine into lineNumif lineNum = 0 then-- not in the database, so we move itaddtoUnknownINITs pathName,versString,creatorTypeelseput line (lineNum+1) of gVersionDB into gDBFileNameput line (lineNum+2) of gVersionDB into gFileVendorput item 2 of line lineNum of gVersionDB into compatibleVersionput item 3 of line lineNum of gVersionDB into gDBCurrentVersionput item 4 of line lineNum of gVersionDB into gDBMessages --∑put extractVersion(versString) into fileVersif fileVers is not empty thenput VersionCompare(fileVers,compatibleVersion,gDBCurrentVersion)¬into versionStatusif versionStatus is "Current" thenaddtoCurrentINITs pathname,fileVerselse if versionStatus is "Compatible" thenaddtoCompatibleINITs pathname,fileVerselse if versionStatus is "Incompatible" thenaddtoIncompatibleINITs pathname,fileVers,creatorTypeelse if versionStatus is "Pre-release" thenaddtoUnknownINITs pathName,versString,creatorTypeend ifend ifend ifend ifend repeat-- WE NEED TO DO A SPECIAL CHECK FOR SECURITY SOFTWARE!!! ∑if gBadINITs is not empty thenput empty into tempBadINITsrepeat with i = 1 to the number of lines of gBadINITsput the number of chars of line i of gBadINITs into totalCharsput char 1 to 8 of line i of gBadINITs into creatorTypeput char 10 to totalChars of line i of gBadINITs into pathNameFindInXCMD gSecurityDB, creatorType, 1, FALSEput the result into dataLineif item 1 of dataLine = 0 thenput pathname & return after tempBadINITsend ifset cursor to busyend repeatput tempBadINITs into gBadINITsend ifcheckSecuritySoftwareend checkINITson addtoCurrentINITs pathName,fileVersionglobal gDBVersion,gDBFileName,gDBCurrentVersion,gNumSelectedglobal CurrentVendors,CurrentFilesset cursor to busyput getVendorInfo() into vendorInfoput line 1 of vendorInfo into vendornameput line 2 of vendorInfo into vendorphonerepeat with i = 1 to 2if charToNum of char i of gDBFileName is 1 thendelete char i of gDBFileNameend ifend repeatput TableWidth(gDBFileName,"26")&" "&TableWidth(vendorname,"25")&¬" "&vendorphone & RETURN after CurrentVendors--∆ Belowput TableWidth(gDBFileName,"26")&TableWidth(fileVersion,"9")&¬TableWidth("Compatible","26") after CurrentFilesif gNumSelected > 1 thenput VolFromPath(pathName) into theVolumeNameput char 1 to 19 of theVolumeName after CurrentFilesend ifput RETURN after CurrentFilesend addtoCurrentINITson addtoCompatibleINITs pathName,fileVersionglobal gDBVersion,gDBFileName,Messages,gDBMessages,gDBCurrentVersionglobal CompatibleVendors,CompatibleFiles,gNumSelectedglobal IsVMCapable,gDBCurrentVersion,Is32BitAddressableset cursor to busyput getVendorInfo() into vendorInfoput line 1 of vendorInfo into vendornameput line 2 of vendorInfo into vendorphonerepeat with i = 1 to 2if charToNum of char i of gDBFileName is 1 thendelete char i of gDBFileNameend ifend repeatput TableWidth(gDBFileName,"26")&" "&TableWidth(vendorname,"25")&¬" "&vendorphone & RETURN after CompatibleVendors--∆ Belowif gDBCurrentVersion is "99" then put "n/a" into gDBCurrentVersionelse if gDBCurrentVersion is "98" then put " " into gDBCurrentVersionput TableWidth(gDBFileName,"26")&TableWidth(fileVersion,"9")&¬"Mostly comp.   " & TableWidth(gDBCurrentVersion,"7") ¬after CompatibleFiles--&if gDBMessages is not empty thenif gDBMessages is "VM" thenif IsVMCapable is TRUE thenput "VM  " after CompatibleFileselseput "    " after CompatibleFilesend ifelse if gDBMessages is "AD" thenif Is32BitAddressable is TRUE thenput "AD  " after CompatibleFileselseput "    " after CompatibleFilesend ifelse if gDBMessages is "FR" then put "FR  " after CompatibleFileselse if gDBMessages is "CD" then put "CD  " after CompatibleFileselse if gDBMessages is "MI" then put "MI  " after CompatibleFileselse if gDBMessages is "UP" then put "UP  " after CompatibleFileselse if gDBMessages is "RI" then put "RI  " after CompatibleFileselse if gDBMessages is "TT" then put "TT  " after CompatibleFileselse if gDBMessages is "EX" then put "EX  " after CompatibleFileselse if gDBMessages is "FS" then put "FS  " after CompatibleFileselse if gDBMessages is "UN" thenput "UN  " after IncompatibleFilesend ifelseput "    " after CompatibleFilesend ifif gNumSelected > 1 thenput VolFromPath(pathName) into theVolumeNameput char 1 to 19 of theVolumeName after CompatibleFilesend ifput RETURN after CompatibleFilesend addtoCompatibleINITson addtoIncompatibleINITs pathname,fileVers,creatorTypeglobal IncompatibleINITs,gDBVersion,gDBFileName,gInitFlag,gBadINITsglobal IncompatibleVendors,gDBCurrentVersion,gDBMessagesset cursor to busyput TRUE into gInitFlagput creatorType & "," & pathname & return after gBadINITs --∑put getVendorInfo() into vendorInfoput line 1 of vendorInfo into vendornameput line 2 of vendorInfo into vendorphoneif "™" is in gDBFileName thenput offset("™",gDBFileName) into theChardelete char theChar of gDBFileNameend ifif "©" is in gDBFileName thenput offset("©",gDBFileName) into theChardelete char theChar of gDBFileNameend ifif "®" is in gDBFileName thenput offset("®",gDBFileName) into theChardelete char theChar of gDBFileNameend ifrepeat with i = 1 to 2if charToNum of char i of gDBFileName is 1 thendelete char i of gDBFileNameend ifend repeatput TableWidth(gDBFileName,"26")&" "&TableWidth(vendorname,"25")&¬" "&vendorphone & RETURN after IncompatibleVendors --∆put VolFromPath(pathName) into theVolumeName-- store the information that will be processed after the user-- has moved/not moved INITsput gDBFileName &","& fileVers &","& gDBMessages &","&¬gDBCurrentVersion &","& theVolumeName & RETURN after IncompatibleINITsend addtoIncompatibleINITson addtoUnknownINITs pathname,fileVers,creatorTypeglobal UnknownINITs,gNumSelected,UnknownVendors,gInitFlag,gBadINITsput TRUE into gInitFlagput creatorType & "," & pathname & RETURN after gBadINITs --∑set cursor to busyput extractVersion(fileVers) into fileVersput FilefromPath(pathname) into fileNamerepeat with i = 1 to 2if charToNum of char i of fileName is 1 thendelete char i of fileNameend ifend repeatif "™" is in fileName thenput offset("™",fileName) into theChardelete char theChar of fileNameend ifif "©" is in fileName thenput offset("©",fileName) into theChardelete char theChar of fileNameend ifif "®" is in fileName thenput offset("®",fileName) into theChardelete char theChar of fileNameend ifput TableWidth(fileName,"27") & TableWidth("Not Avail.","26") &¬"Not Avail." & RETURN after UnknownVendors --∆put VolFromPath(pathName) into theVolumeNameput fileName &","& fileVers &","& theVolumeName & RETURN after UnknownINITsend addtoUnknownINITson checkSecuritySoftwareglobal INITFilestoScan,gSecurityDB,IncompatibleSecuritySoftwareput empty into IncompatibleSecuritySoftwarerepeat with file = 1 to the number of lines in INITFilestoScanput item 1 of line file of INITFilestoScan into creaTypeput item 2 of line file of INITFilestoScan into pathnameset cursor to busyFindInXCMD gSecurityDB,creaType,1, FALSEput the result into dataLineput item 1 of dataLine into lineNumif lineNum = 0 then  -- not in database, so we don't care about itelseput line (lineNum+1) of gSecurityDB into SecurityFileNameput line (lineNum+2) of gSecurityDB into instructionsput SecurityFileName & RETURN & instructions & RETURN & RETURN ¬after IncompatibleSecuritySoftwareend ifend repeatset cursor to normalend checkSecuritySoftwareon moveINITsglobal gBadINITs,StartUpVolume,gErrors,gINITsMovedput 0 into movedINITsset cursor to busyrepeat with file = 1 to the number of lines in gBadINITsput line file of gBadINITs into sourcePathput sourcePath into fileNameput FileFromPath(fileName) into fileNameput StartUpVolume & ":May Not Work With System 7:" & ¬fileName into destPath --∆put HFSCopy(sourcePath, destPath, "NoDialog:gErrors") into dummyif (word 1 of dummy is not "0") and ("-46" is not in gErrors) thenadd 1 to movedINITsRemoveFile sourcePathelse if "-46" is in gErrors thenput "The items cannot be moved because your startup disk is "&¬"locked." into theMsg  --∆answer theMsg with "OK"exit moveINITsend ifset cursor to busyend repeatset cursor to normalput movedINITs && " items were moved from your System Folder "¬& "into a folder called “May Not Work With System 7.”" into theMsg --∆answer theMsg with "OK"--∆put TRUE into gINITsMovedend moveINITson checkMultipleSystemFolders volumeNameglobal MultipleSystemFolders,gScanningFilesset cursor to watchput "1,1,1,1,1" into lastFindput 1 into startSetput empty into tempMsgrepeat until item 1 of lastFind = 0FindInXCMD gScanningFiles, "ZSYS", startSet, FALSEput the result into lastFindput item 1 of lastFind into theLineput (item 5 of lastFind +1) into startSetput item 2 of line theLine of gScanningFiles into fileNameput FileFromPath(fileName) into fileNameif fileName is "System" then                  --∆  --∑ removed one "if" hereput item 1 of lastFind into theLineput item 2 of line theLine of gScanningFiles into theFolderrepeat until last char of theFolder is ":"delete last char of theFolderend repeatput theFolder & RETURN after tempMsgend ifend repeat-- now, if tempMsg has more than 1 line, we have mult system filesif the number of lines in tempMsg > 1 thenput SystemFolder() into activeFldrFindInXCMD tempMsg, activeFldr, 1, TRUEput item 1 of the result into activeLineif activeLine ≠ 0 then delete line activeLine of tempMsgrepeat with i = 1 to the number of lines in tempMsgput textPath(line i of tempMsg) & RETURN after MultipleSystemFoldersend repeatend ifset cursor to normalend checkMultipleSystemFoldersfunction textPath pathNamedelete last char of pathNameput "On volume “" before pathName     --∆repeat until ":" is not in pathNameput offset(":",pathname) into theCharput "” in folder “" after char theChar of pathName    --∆delete char theChar of pathNameend repeatput "”" after pathName      --∆return(pathName)end textPathfunction inLoadLevelOfSysFolder pathName,sysVersglobal gSysFolderCharsif (sysVers) < 0700 thenFindInXCMD pathName, ":", gSysFolderChars+1, TRUEif item 1 of the result = 0 then return TRUEelse return FALSEelseput gSysFolderChars+12 into initFolderLengthFindInXCMD pathName, ":",initFolderLength, TRUE--∆ Belowif (item 1 of the result = 0) and (":Extensions:" is in pathName) thenreturn TRUEend ifput gSysFolderChars+16 into cdevFolderLengthFindInXCMD pathName,":",cdevFolderLength, TRUEif (item 1 of the result = 0) and ¬(":Control Panels:" is in pathName) then --∆return TRUEend ifreturn FALSEend ifend inLoadLevelOfSysFolder</script>
</background>